/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / N-P / NShell Sf-cmds.sit / sf-cmds / source / lib / str_utl.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 73 74 72 5f 75 74 | 6c 2e 63 00 00 00 00 00 |..str_ut|l.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 66 00 | 00 01 7e aa a5 d5 8f aa |......f.|..~.....|
|00000060| a5 d5 8f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c1 89 00 00 |........|........|
|00000080| 2f 2a 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/* =====|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0d 09 |========|=====...|
|000000b0| 73 74 72 5f 75 74 6c 2e | 63 09 0d 0d 09 43 6f 70 |str_utl.|c....Cop|
|000000c0| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 39 33 2c |yright (|c) 1993,|
|000000d0| 31 39 39 34 20 4e 65 77 | 70 6f 72 74 20 53 6f 66 |1994 New|port Sof|
|000000e0| 74 77 61 72 65 20 44 65 | 76 65 6c 6f 70 6d 65 6e |tware De|velopmen|
|000000f0| 74 0d 09 0d 09 59 6f 75 | 20 6d 61 79 20 64 69 73 |t....You| may dis|
|00000100| 74 72 69 62 75 74 65 20 | 75 6e 6d 6f 64 69 66 69 |tribute |unmodifi|
|00000110| 65 64 20 63 6f 70 69 65 | 73 20 6f 66 20 74 68 69 |ed copie|s of thi|
|00000120| 73 20 66 69 6c 65 20 66 | 6f 72 0d 09 6e 6f 6e 63 |s file f|or..nonc|
|00000130| 6f 6d 6d 65 72 63 69 61 | 6c 20 70 75 72 70 6f 73 |ommercia|l purpos|
|00000140| 65 73 2e 20 20 59 6f 75 | 20 6d 61 79 20 75 73 65 |es.  You| may use|
|00000150| 20 74 68 69 73 20 66 69 | 6c 65 20 61 73 20 61 0d | this fi|le as a.|
|00000160| 09 72 65 66 65 72 65 6e | 63 65 20 77 68 65 6e 20 |.referen|ce when |
|00000170| 77 72 69 74 69 6e 67 20 | 79 6f 75 72 20 6f 77 6e |writing |your own|
|00000180| 20 6e 53 68 65 6c 6c 28 | 74 6d 29 20 63 6f 6d 6d | nShell(|tm) comm|
|00000190| 61 6e 64 73 2e 0d 09 0d | 09 41 6c 6c 20 6f 74 68 |ands....|.All oth|
|000001a0| 65 72 20 72 69 67 68 74 | 73 20 61 72 65 20 72 65 |er right|s are re|
|000001b0| 73 65 72 76 65 64 2e 0d | 09 09 0d 20 20 20 3d 3d |served..|...   ==|
|000001c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 20 2a 2f 0d 0d 23 69 6e |========| */..#in|
|000001f0| 63 6c 75 64 65 20 22 73 | 74 72 5f 75 74 6c 2e 70 |clude "s|tr_utl.p|
|00000200| 72 6f 74 6f 2e 68 22 0d | 0d 2f 2a 20 3d 3d 3d 3d |roto.h".|./* ====|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 20 2a | 2f 0d 0d 76 6f 69 64 20 |====== *|/..void |
|00000240| 70 53 74 72 46 72 6f 6d | 43 28 20 53 74 72 69 6e |pStrFrom|C( Strin|
|00000250| 67 50 74 72 20 64 73 74 | 2c 20 63 68 61 72 20 2a |gPtr dst|, char *|
|00000260| 73 72 63 20 29 0d 7b 0d | 09 69 6e 74 09 20 63 6f |src ).{.|.int. co|
|00000270| 75 6e 74 20 3d 20 30 3b | 0d 09 63 68 61 72 20 63 |unt = 0;|..char c|
|00000280| 3b 0d 09 09 0d 09 77 68 | 69 6c 65 20 28 63 20 3d |;.....wh|ile (c =|
|00000290| 20 2a 73 72 63 2b 2b 29 | 0d 09 09 64 73 74 5b 2b | *src++)|...dst[+|
|000002a0| 2b 63 6f 75 6e 74 5d 20 | 3d 20 63 3b 0d 09 09 0d |+count] |= c;....|
|000002b0| 09 64 73 74 5b 30 5d 20 | 3d 20 63 6f 75 6e 74 3b |.dst[0] |= count;|
|000002c0| 0d 7d 0d 0d 76 6f 69 64 | 20 70 53 74 72 43 6f 70 |.}..void| pStrCop|
|000002d0| 79 28 20 53 74 72 69 6e | 67 50 74 72 20 64 73 74 |y( Strin|gPtr dst|
|000002e0| 2c 20 53 74 72 69 6e 67 | 50 74 72 20 73 72 63 20 |, String|Ptr src |
|000002f0| 29 0d 7b 0d 09 69 6e 74 | 20 6c 65 6e 3b 0d 09 0d |).{..int| len;...|
|00000300| 09 6c 65 6e 20 3d 20 2a | 64 73 74 2b 2b 20 3d 20 |.len = *|dst++ = |
|00000310| 2a 73 72 63 2b 2b 3b 0d | 09 0d 09 77 68 69 6c 65 |*src++;.|...while|
|00000320| 20 28 2d 2d 6c 65 6e 3e | 3d 30 29 0d 09 09 2a 64 | (--len>|=0)...*d|
|00000330| 73 74 2b 2b 3d 2a 73 72 | 63 2b 2b 3b 0d 7d 0d 0d |st++=*sr|c++;.}..|
|00000340| 76 6f 69 64 20 70 53 74 | 72 41 70 70 65 6e 64 28 |void pSt|rAppend(|
|00000350| 20 53 74 72 69 6e 67 50 | 74 72 20 64 73 74 2c 20 | StringP|tr dst, |
|00000360| 53 74 72 69 6e 67 50 74 | 72 20 6e 65 77 20 29 0d |StringPt|r new ).|
|00000370| 7b 0d 09 69 6e 74 09 6f | 6c 64 2c 20 61 64 64 2c |{..int.o|ld, add,|
|00000380| 20 69 3b 0d 09 0d 09 6f | 6c 64 20 3d 20 64 73 74 | i;....o|ld = dst|
|00000390| 5b 30 5d 3b 0d 09 0d 09 | 69 66 20 28 61 64 64 20 |[0];....|if (add |
|000003a0| 3d 20 6e 65 77 5b 30 5d | 29 0d 09 09 69 66 20 28 |= new[0]|)...if (|
|000003b0| 28 6f 6c 64 20 2b 20 61 | 64 64 29 20 3c 20 32 35 |(old + a|dd) < 25|
|000003c0| 36 29 20 7b 0d 09 09 09 | 66 6f 72 20 28 69 20 3d |6) {....|for (i =|
|000003d0| 20 31 3b 20 69 20 3c 3d | 20 61 64 64 3b 20 69 2b | 1; i <=| add; i+|
|000003e0| 2b 29 20 64 73 74 5b 6f | 6c 64 2b 69 5d 20 3d 20 |+) dst[o|ld+i] = |
|000003f0| 6e 65 77 5b 69 5d 3b 0d | 09 09 09 64 73 74 5b 30 |new[i];.|...dst[0|
|00000400| 5d 20 3d 20 6f 6c 64 20 | 2b 20 61 64 64 3b 0d 09 |] = old |+ add;..|
|00000410| 09 09 7d 0d 7d 0d 0d 76 | 6f 69 64 20 70 53 74 72 |..}.}..v|oid pStr|
|00000420| 41 70 70 65 6e 64 43 28 | 20 53 74 72 69 6e 67 50 |AppendC(| StringP|
|00000430| 74 72 20 64 73 74 2c 20 | 63 68 61 72 20 2a 73 72 |tr dst, |char *sr|
|00000440| 63 20 29 0d 7b 0d 09 69 | 6e 74 09 20 63 6f 75 6e |c ).{..i|nt. coun|
|00000450| 74 3b 0d 09 63 68 61 72 | 20 63 3b 0d 09 0d 09 63 |t;..char| c;....c|
|00000460| 6f 75 6e 74 20 3d 20 64 | 73 74 5b 30 5d 3b 0d 09 |ount = d|st[0];..|
|00000470| 0d 09 77 68 69 6c 65 20 | 28 63 20 3d 20 2a 73 72 |..while |(c = *sr|
|00000480| 63 2b 2b 29 20 64 73 74 | 5b 2b 2b 63 6f 75 6e 74 |c++) dst|[++count|
|00000490| 5d 20 3d 20 63 3b 0d 09 | 09 0d 09 69 66 20 28 63 |] = c;..|...if (c|
|000004a0| 6f 75 6e 74 20 3c 20 32 | 35 36 29 0d 09 09 64 73 |ount < 2|56)...ds|
|000004b0| 74 5b 30 5d 20 3d 20 63 | 6f 75 6e 74 3b 0d 7d 0d |t[0] = c|ount;.}.|
|000004c0| 0d 69 6e 74 20 70 53 74 | 72 45 71 75 61 6c 28 20 |.int pSt|rEqual( |
|000004d0| 53 74 72 69 6e 67 50 74 | 72 20 6f 6e 65 2c 20 53 |StringPt|r one, S|
|000004e0| 74 72 69 6e 67 50 74 72 | 20 74 77 6f 20 29 0d 7b |tringPtr| two ).{|
|000004f0| 0d 09 69 6e 74 20 6c 65 | 6e 3b 0d 09 0d 09 6c 65 |..int le|n;....le|
|00000500| 6e 20 3d 20 6f 6e 65 5b | 30 5d 3b 0d 09 0d 09 69 |n = one[|0];....i|
|00000510| 66 20 28 6c 65 6e 20 21 | 3d 20 74 77 6f 5b 30 5d |f (len !|= two[0]|
|00000520| 29 0d 09 09 72 65 74 75 | 72 6e 28 20 30 20 29 3b |)...retu|rn( 0 );|
|00000530| 0d 09 09 0d 09 77 68 69 | 6c 65 20 28 6c 65 6e 29 |.....whi|le (len)|
|00000540| 20 7b 0d 09 09 69 66 20 | 28 20 6f 6e 65 5b 6c 65 | {...if |( one[le|
|00000550| 6e 5d 20 21 3d 20 74 77 | 6f 5b 6c 65 6e 5d 20 29 |n] != tw|o[len] )|
|00000560| 0d 09 09 09 72 65 74 75 | 72 6e 28 30 29 3b 0d 09 |....retu|rn(0);..|
|00000570| 09 6c 65 6e 2d 2d 3b 0d | 09 09 7d 0d 09 09 0d 09 |.len--;.|..}.....|
|00000580| 72 65 74 75 72 6e 28 31 | 29 3b 0d 7d 0d 0d 2f 2a |return(1|);.}../*|
|00000590| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|000005a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 20 2a 2f 0d 0d |========|=== */..|
|000005c0| 69 6e 74 09 63 53 74 72 | 45 71 75 61 6c 28 20 63 |int.cStr|Equal( c|
|000005d0| 68 61 72 20 2a 70 2c 20 | 63 68 61 72 20 2a 71 20 |har *p, |char *q |
|000005e0| 29 0d 7b 0d 09 63 68 61 | 72 20 63 3b 0d 09 0d 09 |).{..cha|r c;....|
|000005f0| 64 6f 20 7b 0d 09 09 63 | 20 3d 20 2a 70 2b 2b 3b |do {...c| = *p++;|
|00000600| 0d 09 09 69 66 20 28 63 | 21 3d 2a 71 2b 2b 29 20 |...if (c|!=*q++) |
|00000610| 72 65 74 75 72 6e 28 30 | 29 3b 0d 09 7d 20 77 68 |return(0|);..} wh|
|00000620| 69 6c 65 20 28 20 63 20 | 21 3d 20 30 20 29 3b 0d |ile ( c |!= 0 );.|
|00000630| 09 09 09 0d 09 72 65 74 | 75 72 6e 28 31 29 3b 0d |.....ret|urn(1);.|
|00000640| 7d 0d 0d 69 6e 74 09 63 | 53 74 72 4c 65 6e 28 20 |}..int.c|StrLen( |
|00000650| 63 68 61 72 20 2a 70 20 | 29 0d 7b 0d 09 69 6e 74 |char *p |).{..int|
|00000660| 09 6c 65 6e 3b 0d 09 0d | 09 6c 65 6e 20 3d 20 30 |.len;...|.len = 0|
|00000670| 3b 0d 09 0d 09 77 68 69 | 6c 65 20 28 20 2a 70 2b |;....whi|le ( *p+|
|00000680| 2b 20 29 20 6c 65 6e 2b | 2b 3b 0d 09 09 09 0d 09 |+ ) len+|+;......|
|00000690| 72 65 74 75 72 6e 28 20 | 6c 65 6e 20 29 3b 0d 7d |return( |len );.}|
|000006a0| 0d 0d 76 6f 69 64 20 63 | 53 74 72 46 72 6f 6d 4e |..void c|StrFromN|
|000006b0| 75 6d 28 20 63 68 61 72 | 20 2a 70 2c 20 69 6e 74 |um( char| *p, int|
|000006c0| 20 77 69 64 74 68 2c 20 | 69 6e 74 20 6e 75 6d 20 | width, |int num |
|000006d0| 29 0d 7b 0d 09 69 6e 74 | 09 09 69 2c 6a 3b 0d 09 |).{..int|..i,j;..|
|000006e0| 53 74 72 33 32 09 73 74 | 72 69 6e 67 3b 0d 09 0d |Str32.st|ring;...|
|000006f0| 09 4e 75 6d 54 6f 53 74 | 72 69 6e 67 28 20 6e 75 |.NumToSt|ring( nu|
|00000700| 6d 2c 20 73 74 72 69 6e | 67 20 29 3b 0d 09 0d 09 |m, strin|g );....|
|00000710| 6a 20 3d 20 73 74 72 69 | 6e 67 5b 30 5d 3b 0d 09 |j = stri|ng[0];..|
|00000720| 0d 09 69 66 20 28 20 6a | 20 3e 20 77 69 64 74 68 |..if ( j| > width|
|00000730| 20 29 0d 09 09 66 6f 72 | 20 28 20 69 20 3d 20 30 | )...for| ( i = 0|
|00000740| 20 3b 20 69 20 3c 20 77 | 69 64 74 68 20 3b 20 69 | ; i < w|idth ; i|
|00000750| 2b 2b 20 29 09 09 2f 2f | 20 6e 6f 74 20 65 6e 6f |++ )..//| not eno|
|00000760| 75 67 68 20 72 6f 6f 6d | 0d 09 09 09 70 5b 69 5d |ugh room|....p[i]|
|00000770| 20 3d 20 27 2a 27 3b 0d | 09 09 0d 09 69 20 3d 20 | = '*';.|....i = |
|00000780| 77 69 64 74 68 3b 0d 09 | 0d 09 77 68 69 6c 65 20 |width;..|..while |
|00000790| 28 20 69 20 29 0d 09 09 | 69 66 20 28 20 6a 20 29 |( i )...|if ( j )|
|000007a0| 0d 09 09 09 70 5b 2d 2d | 69 5d 20 3d 20 73 74 72 |....p[--|i] = str|
|000007b0| 69 6e 67 5b 6a 2d 2d 5d | 3b 09 09 09 2f 2f 20 72 |ing[j--]|;...// r|
|000007c0| 69 67 68 74 20 6a 75 73 | 74 69 66 79 0d 09 09 65 |ight jus|tify...e|
|000007d0| 6c 73 65 0d 09 09 09 70 | 5b 2d 2d 69 5d 20 3d 20 |lse....p|[--i] = |
|000007e0| 27 20 27 3b 0d 7d 00 00 | 00 00 00 00 00 00 00 00 |' ';.}..|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000810| f2 98 52 99 47 57 72 50 | 12 4b da 2e 1f 01 6f 24 |..R.GWrP|.K....o$|
|00000820| 18 2d 78 01 18 ff f0 21 | f8 02 a6 01 18 2d 6e ff |.-x....!|.....-n.|
|00000830| 09 73 74 72 5f 75 74 6c | 2e 63 02 00 00 00 54 45 |.str_utl|.c....TE|
|00000840| 58 54 4b 41 48 4c 01 00 | 00 28 00 00 00 00 00 00 |XTKAHL..|.(......|
|00000850| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 28 00 00 |..TEXTKA|HL...(..|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 a9 84 cb 04 00 00 | 07 66 00 00 01 7e 5d 4b |........|.f...~]K|
|00000880| 01 a8 3d 59 9f 01 a0 1b | 59 94 58 02 4a 68 00 5e |..=Y....|Y.X.Jh.^|
|00000890| d8 20 00 5a 94 02 a9 cd | 60 18 20 00 02 60 0e 70 |. .Z....|`. ..`.p|
|000008a0| 94 41 d8 20 00 96 ec 02 | 20 4b a0 23 f7 20 00 73 |.A. ....| K.#. .s|
|000008b0| c4 01 ff dc 2f 94 5c 02 | 0f 18 38 2e 87 23 01 3e |..../.\.|..8..#.>|
|000008c0| 2e 7b 02 53 47 42 05 7f | 01 2c 28 2b d9 04 00 1b |.{.SGB..|.,(+....|
|000008d0| 66 1e 48 c4 2f 04 7c 7b | 78 56 42 5a 4f 50 01 48 |f.H./.|{|xVBZOP.H|
|000008e0| 22 ef 44 04 60 2a 52 47 | b8 47 6c 0a 86 01 32 d9 |".D.`*RG|.Gl...2.|
|000008f0| 50 01 06 ca 33 25 a0 90 | 42 5a 4f 50 14 33 02 4a |P...3%..|BZOP.3.J|
|00000900| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 03 | 00 04 00 28 00 0a 01 c2 |........|...(....|
|00000930| 02 80 00 28 00 0a 01 c2 | 02 80 aa 7f c1 b5 00 00 |...(....|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000950| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 32 c8 60 |...L...L|...2.2.`|
|00000960| 0b c2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000970| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+